From: Artur Malabarba Date: Mon, 16 Nov 2015 14:35:31 +0000 (+0000) Subject: * lisp/faces.el (faces--attribute-at-point): Use `face-list-p' X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~23^2~1584 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=26b695227757cca1665420c496d9aee65abe1e98;p=emacs.git * lisp/faces.el (faces--attribute-at-point): Use `face-list-p' --- diff --git a/lisp/faces.el b/lisp/faces.el index d612461239e..769f326efbe 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1971,9 +1971,7 @@ unnamed faces (e.g, `foreground-color')." (get-char-property (point) 'font-lock-face)) (get-char-property (point) 'face))) (found nil)) - ;; The attribute might be a face, a list of faces, or a list of - ;; attributes that make a face. Normalize it to a list of faces. - (dolist (face (if (and (listp faces) (facep (car faces))) + (dolist (face (if (face-list-p faces) faces (list faces))) (cond (found)